moving object in different shapes visual basic